home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / mac / 3-Presentations / Apple Demos / CPUs / Macintosh Solutions Demo / Macintosh Solutions 1.0 / card_17811.txt < prev    next >
Text File  |  1990-08-24  |  9KB  |  387 lines
  1. -- card: 17811 from stack: in.0
  2. -- bmap block id: 7194
  3. -- flags: 4000
  4. -- background id: 4734
  5. -- name: USAB1.3
  6.  
  7.  
  8. -- part 14 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=325 top=93 right=115 bottom=489
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Which Macintosh?…
  20. ----- HyperTalk script -----
  21.  
  22. on mouseUp -- Business Technical
  23.   determineSoftware -- bg script
  24.   put char 4 of short name of this card into whichCategory
  25.  
  26.   repeat with i = 11 to 17
  27.     set cursor to busy
  28.     if the hilight of cd btn i = true then
  29.       goSolution whichCategory,3
  30.       exit mouseUp
  31.     end if
  32.   end repeat
  33.  
  34.   repeat with i = 8 to 10
  35.     set cursor to busy
  36.     if the hilight of cd btn i = true then
  37.       goSolution whichCategory,2
  38.       exit mouseUp
  39.     end if
  40.   end repeat
  41.  
  42.   repeat with i = 2 to 7
  43.     set cursor to busy
  44.     if the hilight of cd btn i = true then
  45.       goSolution whichCategory,1
  46.       exit mouseUp
  47.     end if
  48.   end repeat
  49.  
  50.   answer "Please select at least one software category."
  51. end mouseUp
  52.  
  53.  
  54.  
  55.  
  56.  
  57. -- part 16 (button)
  58. -- low flags: 00
  59. -- high flags: A005
  60. -- rect: left=289 top=264 right=285 bottom=423
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Word Processing
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   if the hilight of me is true then putMeInList (short name of me)
  72.   else getMeOutOfList (short name of me)
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part 17 (button)
  78. -- low flags: 00
  79. -- high flags: A005
  80. -- rect: left=289 top=224 right=245 bottom=423
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Spreadsheets
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   if the hilight of me is true then putMeInList (short name of me)
  92.   else getMeOutOfList (short name of me)
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 18 (button)
  98. -- low flags: 00
  99. -- high flags: A005
  100. -- rect: left=79 top=264 right=285 bottom=213
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: Database
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   if the hilight of me is true then putMeInList (short name of me)
  112.   else getMeOutOfList (short name of me)
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part 19 (button)
  118. -- low flags: 00
  119. -- high flags: A005
  120. -- rect: left=79 top=284 right=305 bottom=213
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: E-Mail
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   if the hilight of me is true then putMeInList (short name of me)
  132.   else getMeOutOfList (short name of me)
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 20 (button)
  138. -- low flags: 00
  139. -- high flags: A005
  140. -- rect: left=79 top=144 right=165 bottom=218
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: Accounting
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   if the hilight of me is true then putMeInList (short name of me)
  152.   else getMeOutOfList (short name of me)
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 21 (button)
  158. -- low flags: 00
  159. -- high flags: A005
  160. -- rect: left=289 top=164 right=185 bottom=428
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: Presentations
  169. ----- HyperTalk script -----
  170. on mouseUp
  171.   if the hilight of me is true then putMeInList (short name of me)
  172.   else getMeOutOfList (short name of me)
  173. end mouseUp
  174.  
  175.  
  176.  
  177. -- part 22 (button)
  178. -- low flags: 00
  179. -- high flags: A005
  180. -- rect: left=79 top=204 right=225 bottom=250
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 1
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: Business Management
  189. ----- HyperTalk script -----
  190. on mouseUp
  191.   if the hilight of me is true then putMeInList (short name of me)
  192.   else getMeOutOfList (short name of me)
  193. end mouseUp
  194.  
  195.  
  196.  
  197. -- part 23 (button)
  198. -- low flags: 00
  199. -- high flags: A005
  200. -- rect: left=79 top=244 right=265 bottom=248
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 0 / 0
  203. -- text alignment: 1
  204. -- font id: 0
  205. -- text size: 12
  206. -- style flags: 0
  207. -- line height: 16
  208. -- part name: Data Entry & Retrieval
  209. ----- HyperTalk script -----
  210. on mouseUp
  211.   if the hilight of me is true then putMeInList (short name of me)
  212.   else getMeOutOfList (short name of me)
  213. end mouseUp
  214.  
  215.  
  216.  
  217. -- part 24 (button)
  218. -- low flags: 00
  219. -- high flags: A005
  220. -- rect: left=289 top=184 right=205 bottom=428
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 1
  224. -- font id: 0
  225. -- text size: 12
  226. -- style flags: 0
  227. -- line height: 16
  228. -- part name: Publishing
  229. ----- HyperTalk script -----
  230. on mouseUp
  231.   if the hilight of me is true then putMeInList (short name of me)
  232.   else getMeOutOfList (short name of me)
  233. end mouseUp
  234.  
  235.  
  236.  
  237. -- part 5 (button)
  238. -- low flags: 00
  239. -- high flags: A005
  240. -- rect: left=289 top=204 right=225 bottom=457
  241. -- title width / last selected line: 0
  242. -- icon id / first selected line: 0 / 0
  243. -- text alignment: 1
  244. -- font id: 0
  245. -- text size: 12
  246. -- style flags: 0
  247. -- line height: 16
  248. -- part name: Software Engineering
  249. ----- HyperTalk script -----
  250. on mouseUp
  251.   if the hilight of me is true then putMeInList (short name of me)
  252.   else getMeOutOfList (short name of me)
  253. end mouseUp
  254.  
  255.  
  256.  
  257. -- part 15 (button)
  258. -- low flags: 00
  259. -- high flags: A005
  260. -- rect: left=289 top=144 right=165 bottom=510
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 0
  264. -- font id: 0
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: Modeling and Simulation Tools
  269. ----- HyperTalk script -----
  270. on mouseUp
  271.   if the hilight of me is true then putMeInList (short name of me)
  272.   else getMeOutOfList (short name of me)
  273. end mouseUp
  274.  
  275.  
  276.  
  277. -- part 7 (button)
  278. -- low flags: 00
  279. -- high flags: A005
  280. -- rect: left=289 top=284 right=305 bottom=404
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 1
  284. -- font id: 0
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: 3-D Rendering
  289. ----- HyperTalk script -----
  290. on mouseUp
  291.   if the hilight of me is true then putMeInList (short name of me)
  292.   else getMeOutOfList (short name of me)
  293. end mouseUp
  294.  
  295.  
  296.  
  297. -- part 8 (button)
  298. -- low flags: 00
  299. -- high flags: A005
  300. -- rect: left=79 top=164 right=185 bottom=218
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 0 / 0
  303. -- text alignment: 1
  304. -- font id: 0
  305. -- text size: 12
  306. -- style flags: 0
  307. -- line height: 16
  308. -- part name: Animation
  309. ----- HyperTalk script -----
  310. on mouseUp
  311.   if the hilight of me is true then putMeInList (short name of me)
  312.   else getMeOutOfList (short name of me)
  313. end mouseUp
  314.  
  315.  
  316.  
  317. -- part 11 (button)
  318. -- low flags: 00
  319. -- high flags: A005
  320. -- rect: left=79 top=184 right=205 bottom=247
  321. -- title width / last selected line: 0
  322. -- icon id / first selected line: 0 / 0
  323. -- text alignment: 1
  324. -- font id: 0
  325. -- text size: 12
  326. -- style flags: 0
  327. -- line height: 16
  328. -- part name: Architecture/Drafting
  329. ----- HyperTalk script -----
  330. on mouseUp
  331.   if the hilight of me is true then putMeInList (short name of me)
  332.   else getMeOutOfList (short name of me)
  333. end mouseUp
  334.  
  335.  
  336.  
  337. -- part 12 (button)
  338. -- low flags: 00
  339. -- high flags: A005
  340. -- rect: left=79 top=224 right=245 bottom=218
  341. -- title width / last selected line: 0
  342. -- icon id / first selected line: 0 / 0
  343. -- text alignment: 1
  344. -- font id: 0
  345. -- text size: 12
  346. -- style flags: 0
  347. -- line height: 16
  348. -- part name: CAD/CAM
  349. ----- HyperTalk script -----
  350. on mouseUp
  351.   if the hilight of me is true then putMeInList (short name of me)
  352.   else getMeOutOfList (short name of me)
  353. end mouseUp
  354.  
  355.  
  356.  
  357. -- part 13 (button)
  358. -- low flags: 00
  359. -- high flags: A005
  360. -- rect: left=289 top=244 right=265 bottom=428
  361. -- title width / last selected line: 0
  362. -- icon id / first selected line: 0 / 0
  363. -- text alignment: 1
  364. -- font id: 0
  365. -- text size: 12
  366. -- style flags: 0
  367. -- line height: 16
  368. -- part name: Unix
  369. ----- HyperTalk script -----
  370. on mouseUp
  371.   if the hilight of me is true then putMeInList (short name of me)
  372.   else getMeOutOfList (short name of me)
  373. end mouseUp
  374.  
  375.  
  376.  
  377. -- part contents for background part 1
  378. ----- text -----
  379. USAB1.3
  380.  
  381. -- part contents for background part 3
  382. ----- text -----
  383. 8
  384.  
  385. -- part contents for background part 7
  386. ----- text -----
  387. Click to select the software categories that interest you, then click the ‚ÄúWhich Macintosh?‚Ķ‚Äù button to see the recommended Macintosh.